Option Explicit
Sub P_Sample005()
    Dim myFNo      As Long
    Dim myFileName As String
    Dim myErr      As Long
    myFileName = Application.GetOpenFilename()
    If myFileName = "False" Then Exit Sub
    myFNo = FreeFile
    On Error Resume Next
    Open myFileName For Binary Access Write Lock Write As #myFNo
    Close #myFNo
    myErr = Err.Number
    On Error GoTo 0
    If myErr > 0 Then
        MsgBox "Lk}ҡAܦiwgQ}ҤFC"
    Else
        MsgBox "SQ}ҡC"
    End If
End Sub
